home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
misc
/
robots.lha
/
player
/
tron.r
< prev
Wrap
Text File
|
1993-04-25
|
1KB
|
83 lines
A.U.G.U.P.
M.Scheler
/* Dieser Robot fährt einfach ein Quadrat ab und ballert auf alles,
was sich ihm in den Weg stellt.
$VER: Tron's C-Robot V1.2 (25.04.93)
*/
int ddirec,pings;
shoot(direc)
int direc;
{
int range;
range=scan(direc+ddirec,15);
if ((range>0)&&(range<700))
{
cannon (direc-5*ddirec+5,range);
pings=pings+1;
ddirec=(pings*5*100)/range;
}
else
{
pings=0;
ddirec=0;
}
range=scan(direc+90,10);
if (range>0) cannon (direc+90,range);
}
main()
{
int ddirec;
ddirec=0;
pings=0;
while (1)
{
/* nach oben Fahren (am linken Rand) */
while (loc_y()<950)
{
drive (90,100);
shoot (0);
}
drive (90,0);
while (speed()>=50);
/* nach rechts Fahren (am oberen Rand) */
while (loc_x()<950)
{
drive (0,100);
shoot (270);
}
drive (0,0);
while (speed()>=50);
/* nach unten Fahren (am rechten Rand) */
while (loc_y()>50)
{
drive (270,100);
shoot (180);
}
drive (270,0);
while (speed()>=50);
/* nach links Fahren (am unteren Rand) */
while (loc_x()>50)
{
drive (180,100);
shoot (90);
}
drive (180,0);
while (speed()>=50);
}
}